home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Miscellaneous / CopyPaste 3.3.4 / CopyPaste Tools Sourcecode / XTND Import / XTNDPictTranslator.p < prev    next >
Encoding:
Text File  |  1996-08-20  |  1.4 KB  |  38 lines  |  [TEXT/PJMM]
  1. {************************************************************************}
  2. {*                                                                        *}
  3. {*    XTNDPictTranslator.p                                                *}
  4. {*                                                                        *}
  5. {*    Header file for PICT import translator.                                *}
  6. {*                                                                        *}
  7. {*    Copyright © 1988-91 Claris Corporation                                *}
  8. {*    All Rights Reserved                                                    *}
  9. {*                                                                        *}
  10. {************************************************************************}
  11. UNIT XTNDPictTranslator;
  12. INTERFACE
  13.  
  14.     USES
  15. {types, osutils, files, folders, QuickDraw, Dialogs, }
  16.         XTNDInterface;
  17.  
  18.     CONST
  19. { Defines for Directive to be passed to picture import translators }
  20.         importGetPict = 1;
  21.         importGetEPSF = 2;
  22.  
  23.     TYPE
  24. { This is the parameter block for passing information to a picture import translator }
  25.         PictImportParmBlkPtr = ^PictImportParmBlk;
  26.         PictImportParmBlk = RECORD
  27.                 result: OSErr;            { Return code, 0 if successful, error code otherwise }
  28.                 dataRefNum: INTEGER;        { Reference number of the data fork to be read by the translator }
  29.                 resRefNum: INTEGER;        { Reference number of the resource fork to be read by the translator }
  30.                 thePicture: PicHandle;        { Handle to the picture to be read }
  31.                 directive: INTEGER;        { Indicates the action to be performed }
  32.                 dataHandle: Handle;            { Handle to additional data }
  33.                 theReply: SFReply;        { Standard reply record describing the file being translated }
  34.                 thisTranslator: TransDescribe;    { TransDescribe record describing this translator }
  35.             END;
  36.  
  37. IMPLEMENTATION
  38. END.